home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / findfi1a / browse.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-10-12  |  2.0 KB  |  75 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    Caption         =   "Browse For Folder"
  4.    ClientHeight    =   4530
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   3825
  8.    LinkTopic       =   "Form3"
  9.    ScaleHeight     =   4530
  10.    ScaleWidth      =   3825
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.DriveListBox Drive1 
  13.       Height          =   315
  14.       Left            =   210
  15.       TabIndex        =   4
  16.       Top             =   435
  17.       Width           =   3360
  18.    End
  19.    Begin VB.CommandButton Command2 
  20.       Caption         =   "&Cancel"
  21.       Height          =   375
  22.       Left            =   2400
  23.       TabIndex        =   3
  24.       Top             =   4080
  25.       Width           =   1095
  26.    End
  27.    Begin VB.CommandButton Command1 
  28.       Caption         =   "&Ok"
  29.       Height          =   375
  30.       Left            =   1230
  31.       TabIndex        =   2
  32.       Top             =   4080
  33.       Width           =   1095
  34.    End
  35.    Begin VB.DirListBox Dir1 
  36.       Height          =   3015
  37.       Left            =   180
  38.       TabIndex        =   0
  39.       Top             =   855
  40.       Width           =   3360
  41.    End
  42.    Begin VB.Label Label1 
  43.       Caption         =   "Select the folder you want to begin the search"
  44.       Height          =   210
  45.       Left            =   120
  46.       TabIndex        =   1
  47.       Top             =   135
  48.       Width           =   4425
  49.    End
  50. Attribute VB_Name = "Form3"
  51. Attribute VB_GlobalNameSpace = False
  52. Attribute VB_Creatable = False
  53. Attribute VB_PredeclaredId = True
  54. Attribute VB_Exposed = False
  55. Option Explicit
  56. Public drivepath As String
  57. Private Sub Command1_Click()
  58. 'drivepath = Dir1.path
  59. Unload Me
  60. Form1.Txtpath = drivepath
  61. End Sub
  62. Private Sub Command2_Click()
  63. Unload Me
  64. End Sub
  65. Private Sub Dir1_Change()
  66. drivepath = Dir1.path
  67. End Sub
  68. Private Sub Drive1_Change()
  69. On Error Resume Next
  70. Dir1.path = Drive1.Drive
  71. End Sub
  72. Private Sub Form_Load()
  73. Dir1.path = "c:\"
  74. End Sub
  75.